home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
tallyho.arc
/
MACRS.FCP
< prev
next >
Wrap
Text File
|
1990-09-23
|
3KB
|
261 lines
@DSPLY "MACRS depreciation for"
@DSPLY "3,5,7,10,15 and 20 year"
@DSPLY "class assets and for"
@DSPLY "residential rental and"
@DSPLY "nonresidential real"
@DSPLY "property."
1
@RIN (7)
=
@NEW STEP
@GET "Real Prop.? 1=Yes 2=No"
@IF =
1=
@NEW STEP
@GOTO (36)
=
@NEW STEP
-1=
@DSPLY "To enter the class life"
@GET "type 3,5,7,10,15 or 20"
@RIN (1)
=
@NEW STEP
@IF <
15=
@NEW STEP
2
@RIN (2)
@GOTO (8)
=
@NEW STEP
1.5
@RIN (2)
=
@NEW STEP
(1/
@ROUT (1)
)*
@ROUT (2)
=
@NEW STEP
@RIN (3)
@GET "Enter depreciable basis"
@RIN (4)
*
@ROUT (3)
*.5=
@NEW STEP
@RIN (5)
@ROUT (7)
@DSPLY "For year number"
@ROUT (5)
@DSPLY "the depreciation is___."
@ROUT (1)
-.5=
@NEW STEP
@RIN (1)
@ROUT (4)
-
@ROUT (5)
=
@NEW STEP
@RIN (4)
=
@NEW STEP
*
@ROUT (3)
=
@NEW STEP
@RIN (5)
@ROUT (7)
+1=
@NEW STEP
@RIN (7)
@ROUT (4)
/
@ROUT (1)
=
@NEW STEP
@RIN (6)
@IF >
@ROUT (5)
=
@NEW STEP
@GOTO (23)
=
@NEW STEP
@ROUT (1)
@IF =
.5=
@NEW STEP
@GOTO (31)
=
@NEW STEP
@ROUT (1)
-1=
@NEW STEP
@RIN (1)
@ROUT (7)
@DSPLY "For year number"
@ROUT (5)
@DSPLY "the depreciation is___."
@ROUT (4)
-
@ROUT (5)
=
@NEW STEP
@RIN (4)
@GOTO (13)
=
@NEW STEP
0
@DSPLY "Switch to straight line"
=
@NEW STEP
@ROUT (1)
@IF =
.5=
@NEW STEP
@ROUT (6)
@RIN (5)
@GOTO (31)
=
@NEW STEP
@ROUT (1)
-1=
@NEW STEP
@RIN (1)
@ROUT (7)
@DSPLY "For year number"
@ROUT (6)
@DSPLY "the depreciation is___."
@ROUT (4)
-
@ROUT (6)
=
@NEW STEP
@RIN (4)
/
@ROUT (1)
=
@NEW STEP
@RIN (6)
@ROUT (7)
+1=
@NEW STEP
@RIN (7)
@GOTO (24)
=
@NEW STEP
@ROUT (5)
*.5=
@NEW STEP
@RIN (5)
@ROUT (7)
@DSPLY "For year number"
@ROUT (5)
@DSPLY "the depreciation is___."
0
@DSPLY "** Fully depreciated **"
@GET "0 = Quit. 1 = Continue."
@MIN
@IF =
1=
@NEW STEP
@RIN (7)
@GOTO (2)
=
@NEW STEP
@MOUT
@IF =
0=
@NEW STEP
@GOTO (54)
=
@NEW STEP
@GET "Residential? 1=Yes 2=No"
@IF =
1=
@NEW STEP
27.5
@RIN (3)
@GOTO (39)
=
@NEW STEP
31.5
@RIN (3)
=
@NEW STEP
@GET "Enter depreciable basis"
@RIN (1)
@GET "Month acquired? (1-12)"
@RIN (10)
=
@NEW STEP
13-
@ROUT (10)
=
@NEW STEP
@RIN (4)
@IF >
6=
@NEW STEP
@GOTO (45)
=
@NEW STEP
6-
@ROUT (4)
=
@NEW STEP
@RIN (5)
@GOTO (47)
=
@NEW STEP
18-
@ROUT (4)
=
@NEW STEP
@RIN (5)
=
@NEW STEP
@ROUT (1)
/
@ROUT (3)
=
@NEW STEP
@RIN (6)
@DSPLY "Annual Depreciation"
/12*.5=
@NEW STEP
@RIN (7)
@ROUT (4)
/12*
@ROUT (6)
-
@ROUT (7)
=
@NEW STEP
@DSPLY "First Year Depreciation"
@ROUT (5)
/12*
@ROUT (6)
+
@ROUT (7)
=
@NEW STEP
@DSPLY "Last Year Depreciation"
=
@NEW STEP
@GET "0 = Quit. 1 = Continue."
@IF =
1=
@NEW STEP
@RIN (7)
@GOTO (2)
=
@NEW STEP
0
@MIN
@STOP